home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / filedate.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-04-13  |  1.5 KB  |  32 lines
  1. 10  FOR I=1 TO 10:KEY I,"":NEXT
  2. 20  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR
  3. 30  ON ERROR GOTO 230
  4. 40  PRINT:PRINT"FILEDATE.BAS    A Program to Change the ";:COLOR 31:PRINT"Date";:COLOR 5:PRINT" and ";:COLOR 31:PRINT"Time";:COLOR 5:PRINT" of Disk Files":DIM FILE$(20)
  5. 50  LOCATE 6,1:PRINT"What ";:COLOR 27:PRINT"DATE";:COLOR 5:PRINT" do you want on the file/s (MM/DD/YY)"
  6. 60  LOCATE 6,47:INPUT IDATE$
  7. 70  DATE$=IDATE$:LOCATE 5,1:PRINT SPC(70)
  8. 80  LOCATE 8,1:INPUT"What TIME do you want on the files (HH:MM)";ITIME$
  9. 90  TIME$=ITIME$:LOCATE 5,1:PRINT SPC(70):LOCATE 10,1,0:PRINT"Which disk drive are the files on";:COLOR 23:PRINT"?":COLOR 7
  10. 100  DRIVE$=INKEY$:IF DRIVE$=""THEN 100
  11. 110  IF LEN(DRIVE$)>1 THEN DRIVE$="
  12. 120  IF(ASC(DRIVE$)<65 OR ASC(DRIVE$)>90)AND(ASC(DRIVE$)<97 OR ASC(DRIVE$)>122)THEN DRIVE$=""ELSE DRIVE$=DRIVE$+":
  13. 130  CLS:LOCATE 3,1:IF DRIVE$=""THEN PRINT"Printing files on default drive"ELSE PRINT"Printing files on drive "DRIVE$
  14. 140  LOCATE 5,1:IF DRIVE$<>""THEN FILES DRIVE$+"*.*"ELSE FILES
  15. 150  I=0:PRINT
  16. 160  INPUT"Filename";FILENAME$:IF FILENAME$<>""THEN I=I+1:FILE$(I)=FILENAME$:GOTO 160
  17. 170  FOR L=1 TO I:OPEN DRIVE$+FILE$(L) AS 1 LEN=1:DATE$=IDATE$:TIME$=ITIME$:GET#1,1:PUT#1,1:CLOSE:NEXT L:CLS:LOCATE 5,1:PRINT"Your date and time are now set to ";IDATE$;" at ";ITIME$:GOTO 180
  18. 180  LOCATE 25,23:PRINT"Do you want to update another disk?"
  19. 190  U$=INKEY$
  20. 200  IF U$="N" OR U$="n" THEN CLS:RUN"FILES."
  21. 210  IF U$="Y" OR U$="y" THEN 20
  22. 220  GOTO 190
  23. 230  IF ERR<>5 OR ERL<>70 THEN 250
  24. 240  LOCATE 6,1:PRINT"Not a valid date                                         ":GOSUB 280:RESUME 50
  25. 250  IF ERR<>5 OR ERL<>90 THEN 270
  26. 260  LOCATE 6,1:PRINT"Not a valid time                                         ":GOSUB 280:RESUME 80
  27. 270  ON ERROR GOTO 0
  28. 280  LOCATE 25,30:PRINT"Press space to continue";
  29. 290  IF INKEY$<>" "THEN 290
  30. 300  LOCATE 5,1:PRINT SPC(70):LOCATE 6,1:PRINT SPC(70):LOCATE 25,1:PRINT SPC(70);:RETURN
  31. 310  END
  32.